home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / comm / 0141ter2.zip / 0141TER2._XE / PASCAL.EXE / PHONE.100 < prev    next >
Text File  |  1993-06-07  |  5KB  |  88 lines
  1. {--------------------------------------------------------------------------}
  2. {                                                                          }
  3. {                   -=> Terminate Phone directory  <=-                     }
  4. {                                                                          }
  5. {   The phonebook has first one PhoneHeadRec, and then up to 500 PhoneRec  }
  6. {                                                                          }
  7. {  Structure is copyrighted material and may not be changed by other than  }
  8. {                        the author: Bo Bendtsen                           }
  9. {                                                                          }
  10. {--------------------------------------------------------------------------}
  11.  
  12.   { This structure is still the same as 0.38, the only changes is that:  }
  13.   { Number is now 24 chars long, the 25 char is now used for the device  }
  14.   { Suffix has replaced protocol                                         }
  15.   { Terminal has changed name to Emulation, Terminate will update auto.. }
  16.  
  17. Const
  18.   MaxNumbers = 500;
  19.  
  20. Type
  21.  
  22.       PhoneRec = Record
  23.                    Name       : String[30]; { Name of system                 }
  24.                    Number     : String[24]; { Number to call                 }
  25.                    Device     : Byte;       { Device to use                  }
  26.                    Baud       : LongInt;    { Information on baudrate        }
  27.                    Parity     : Char;       { Information on Parity          }
  28.                    DataBits,                { Information on Databits        }
  29.                    StopBits   : Byte;       { Information on Stopbits        }
  30.                    Keyboard   : String[8];  { Script to use at connect       }
  31.                    Terminal,                { Emulation to use               }
  32.                    DialSuffix,              { Which Dialsuffix after number  }
  33.                    DialPrefix : Byte;       { Dialprefix                     }
  34.                    Password   : String[24]; { Password to use                }
  35.                    Open,Closed: Word;       { Opening hours 20:30 = 20*60+30 }
  36.                    User       : Byte;       { Username to use                }
  37.                    Comment1,                { Note 1                         }
  38.                    Comment2   : String[40]; { Note 2                         }
  39.                    LoginScript,             { Autologin script               }
  40.                    Downloaddir: Byte;       { Download to which path         }
  41.                    Translate,               { Translation table              }
  42.                    Capture,                 { Default capture file           }
  43.                    Note       : String[8];  { A file containing notes        }
  44.  
  45.                    LocalEcho,               { Turn on local echo             }
  46.                    StripHigh,               { Strip above 127 from incoming  }
  47.                    RcvdBSdest : Boolean;    { Backspace destroyes            }
  48.                    Color      : Byte;       { Attribute of entry             }
  49.  
  50.                    { Statistics }
  51.                    JulDate,                 { Julian date of last connect    }
  52.                    CalcMin,                 { Time of last con. Hour*60+min  }
  53.                    Connects   : Word;       { Number of connects             }
  54.                    SecUsed,                 { Seconds used on system         }
  55.                    UploadKb,                { Kilobytes of uploads           }
  56.                    DownloadKb,              { Kilobytes of downloads         }
  57.                    Costs,                   { Total money used on system     }
  58.                    LastCosts  : LongInt;    { Used this month                }
  59.                  End;
  60.  
  61.   PhoneHeadRec = Record
  62.                    Encrypted  : Boolean;    { Is phonebook encrypted         }
  63.                    Seed       : Longint;    { Key to decrypt entries         }
  64.                    Version    : String[5];  { Version is Terminate           }
  65.                    Comment    : String[30]; { Phonebook note                 }
  66.                    Num        : Integer;    { Total entries                  }
  67.                    CurMonth   : Byte;       { Current month                  }
  68.                    MonthCosts : Array[1..12]{ For keeping track of how much  }
  69.                                 of Longint; { money used a hole year back    }
  70.                    PhonePos   : Integer;    { Last entry processed           }
  71.                    ScrPos,                  { Where on screen is menubar     }
  72.                    WritePos   : Byte;       { Last pos for left/right cursor }
  73.                    RangeStart,              { Last Range Start               }
  74.                    RangeStop  : Integer;    { Last Range stop                }
  75.                  End;
  76.  
  77.      PhoneType = Record
  78.                    Tag  : Boolean;
  79.                    P    : PhoneRec;
  80.                  End;
  81.  
  82. Var
  83.   PHead        : PhoneHeadRec;
  84.   Ph           : Array[0..MaxNumbers] of ^PhoneType;
  85.  
  86.                  { Record 0 is used for manual dialing }
  87.  
  88.